The Trig Explorer/The Trig Explorer.iso/pc/explorer/wave.dxr/00087.ls

Text File | 1997-07-22 | 1003 b | 33 lines

on mouseUp
  set the trails of sprite 19 to 1
  if field "A" > 5 then
    put 5 into field "A"
  end if
  if field "A" < -5 then
    put -5 into field "A"
  end if
  set x0 to the locH of sprite 12 + 1
  set y0 to the locV of sprite 12
  repeat with n = 0 to 240
    set the locH of sprite 19 to (2.39999999999999991 * n) + x0
    if the hilite of cast "Sine" then
      set the locV of sprite 19 to y0 - (field "A" * 50.0 * float(sin(float((field "B" * n * 3.0) + field "C") * PI / 180.0)))
    end if
    if the hilite of cast "Cosine" then
      set the locV of sprite 19 to y0 - (field "A" * 50.0 * float(cos(float((field "B" * n * 3.0) + field "C") * PI / 180.0)))
    end if
    if the hilite of cast "Tangent" then
      set the locV of sprite 19 to y0 - (field "A" * 50.0 * float(tan(float((field "B" * n * 3.0) + field "C") * PI / 180.0)))
    end if
    updateStage()
    startTimer()
    repeat while the timer < 1
      nothing()
    end repeat
  end repeat
end

on mouseDown
  button()
end